set the hilite of btn "2 Network Services" to false
set the hilite of btn "1 Hardware" to false
set the hilite of btn "0 Lobby" to true
--∆ Set destination indicator
hide cd btn "3 ApplicationsHiliter"
hide cd btn "2 Network ServicesHiliter"
hide cd btn "1 HardwareHiliter"
hide cd btn "0 LobbyHiliter"
show cd btn (nextFloor & "Hiliter")
unlock screen with visual barn door close
pass openCard
--end openCard
-- part 8 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=177 top=0 right=23 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 18
-- style flags: 16384
-- line height: 21
-- part name: CurrentFloor
-- part 10 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=3 top=133 right=192 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 10
-- style flags: 16384
-- line height: 13
-- part name: Destination
----- HyperTalk script -----
--on mouseDown
global floor,currentFloor,nextFloor
--∆ Move to chosen level/floor
--set the lockscreen to true
put character 1 of nextFloor into floorDestination
repeat with x = (floor + 1) to floorDestination
ElevatorAction --∆ In the stack script.
--wait 80
end repeat
play "22"
if currentFloor is "0 Lobby" then
go to cd "elevatorOpen"
else
go to cd "elevatorOpenHall"
end if
--end mouseDown
--∆ lobby is floor 0,
--∆ foundation is floor 1, network services is 2, app is 3.
global floor,nextFloor,lastFloor,currentFloor
if floor < floorDestination then
repeat with x = (floor + 1) to floorDestination
set lockscreen to true
put line x of cd fld "Destination" into currentFloor
put currentFloor into cd fld "currentFloor"
--if lastFloor is not empty then
--set the highlite of cd button lastFloor to false
--set the highlite of cd button (lastFloor & "hiliter") to false
--hide cd button (lastFloor & "hiliter")
--end if
set the highlite of cd button currentFloor to true
--set the highlite of cd button (currentFloor & "hiliter") to true
--show cd button (currentFloor & "hiliter")
--put currentFloor into lastFloor
unlock screen with visual effect wipe up
wait 60
end repeat
put nextFloor into floor
end if
--∆ Set lights over door
set the hilite of btn "3 Applications" to false
set the hilite of btn "2 Network Services" to false
set the hilite of btn "1 Hardware" to false
set the hilite of btn "0 Lobby" to true
--put currentFloor into cd field "currentFloor"
show cd btn (currentFloor & "hiliter")
set the hilite of btn "3 Applications" to false
set the hilite of btn "2 Network Services" to false
set the hilite of btn "1 Hardware" to false
set the hilite of btn "0 Lobby" to false
set the hilite of button currentfloor to true
put currentfloor into cd field "currentfloor"
play "22"
unlock screen with visual barn door open
wait 5
set lockscreen to true
set cursor to busy
go to cd "hallway1"
-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=178 top=23 right=35 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 0 Lobby
-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=222 top=23 right=35 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1 Hardware
-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=270 top=23 right=35 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2 Network Services
-- part 14 (button)
-- low flags: 00
-- high flags: 6000
-- rect: left=317 top=23 right=35 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3 Applications
-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=396 top=105 right=171 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: kiosk
----- HyperTalk script -----
on mouseUp
set lockscreen to true
put empty into field "Explainer"
push card
go to cd "kiosk"
unlock screen with dissolve
end mouseUp
on mouseEnter
show field "Explainer"
put "This is the 'Information Kiosk'. " && return && return && "It will help you to understand what products will work " && "with each other and provide ready access to the help and " && "lobby locations." into field "Explainer"
pass mouseEnter
end mouseEnter
on mouseDown
Global ButtonSND
play ButtonSND
end mouseDown
on mouseLeave
hide field "Explainer"
end mouseLeave
-- part 23 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=3 top=105 right=128 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 14
-- style flags: 16640
-- line height: 18
-- part name: EnvName
-- part 33 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=4 top=164 right=178 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1 HardwareHiliter
----- HyperTalk script -----
on mouseEnter
global Help
put "Level Indicator" & return & "you are now at this level" into fld "Tell"
changeCurs 6069
end mouseEnter
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 34 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=4 top=177 right=191 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 0 LobbyHiliter
----- HyperTalk script -----
on mouseEnter
global Help
put "Level Indicator" & return & "you are now at this level" into fld "Tell"
changeCurs 6069
end mouseEnter
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 35 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=4 top=151 right=165 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2 network serviceshiliter
----- HyperTalk script -----
on mouseEnter
global Help
put "Level Indicator" & return & "you are now at this level" into fld "Tell"
changeCurs 6069
end mouseEnter
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 38 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=4 top=138 right=152 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3 ApplicationsHiliter
----- HyperTalk script -----
on mouseEnter
global Help
put "Level Indicator" & return & "you are now at this level" into fld "Tell"
changeCurs 6069
end mouseEnter
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 39 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=28 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 2048
-- line height: 24
-- part name:
-- part contents for card part 10
----- text -----
3 Applications
2 Network Services
1 Hardware
0 Lobby
-- part contents for card part 23
----- text -----
Digital
-- part contents for card part 39
----- text -----
Inside Elevator
-- part contents for card part 8
----- text -----
3 Applications
-- part contents for background part 18
----- text -----
This is the 'Information Kiosk'.
It will help you to understand what products will work with each other and provide ready access to the help and lobby locations.